home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Sound
/
Utilities
/
K1 Librarian 1.0.0
/
Sample Scripts
/
18 Send One Dump Request
< prev
next >
Wrap
Text File
|
1994-05-30
|
574b
|
24 lines
tell application "K1 Librarian"
-- activate
set ch to 14 -- set MIDI channel (1 - 16)
set kind to 0 -- set single/multi
-- 0 for single
-- 1 for multi
set ie to 3 -- set I,i,E,e
-- 0 for I
-- 1 for i
-- 2 for E
-- 3 for e
set abcd to 1 -- set A,B,C,D
-- 0 for A
-- 1 for B
-- 2 for C
-- 3 for D
set num to 7 -- set patch num (1 - 8)
if (ie = 0) then set temp to 0
if (ie = 1) then set temp to 32
if (ie = 2) then set temp to 4096
if (ie = 3) then set temp to 32 + 4096
One Dump Request {(ch - 1) * 256 + kind * 64 + temp + abcd * 8 + num - 1}
end tell